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STATEMENT  OF  THE  PROBLEM 


To  achieve  the  maximum  usage  of  the  automatic  drafting  machine 
(ADM) , it  was  essential  that  software  be  developed  to  meet  the  require- 
ments of  this  installation.  This  project  effort  was  to  focus  on  the 
development  of  software  needed  to  enhance  the  ADM  capabilities.  This 
was  simultaneously  accompanied  with  a program  to  develop  procedures  for 
digitizing  existing  drawings  of  components,  tools,  and  inspection 
devices.  Numerical  control  (N/C)  tapes  that  are  produced  by  N/C  parts 
programmer  had  required  verification  by  actually  machining  a component. 
Under  this  project  a process  was  to  be  developed  for  the  verification 
and  the  production  of  N/C  tapes  directly  from  the  drawings  on  the  ADM. 
BACKGROUND  AND  INTRODUCTION 

An  ADM  was  procured  from  the  Gerber  Scientific  Instruments  Co. 

The  ADM  is  comprised  of  three  units:  the  Series  2000  control,  the 
operator's  desk,  and  the  Model  75  table. 

The  Series  2000  control  consists  of  four  (4)  major  components, 
namely:  a digital  computer  for  control;  a hardware  interface  for  elec- 
trically matching  the  computer  output  to  the  ADM  input;  computer  peri- 
pheral devices  for  data  transfer;  and  a computer  program  for  directing 
the  operation  of  the  system  as  an  automatic  drafting  machine. 

The  digital  computer  incorporated  into  the  Series  2000  control  is 
the  Honeywell  Model  316  with  a 16  bit  word  length  and  8192  words  of  mem- 
ory. The  Model  75  Table/Series  2000  control  interface  functions,  such  as 
interpolation  and  acceleration/deceleration,  are  handled  by  the  control's 
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computer  under  program  control . 

The  peripheral  devices  for  data  transfer  consist  of  a high  speed, 
photoelectric,  punched  tape  reader  for  data  input  (approximately  400 
cps),  a high  speed  tape  punch  for  data  output  (approximately  100  cps) 
and  an  ASR-33  teletypewriter  for  operator/drafting  system  communication. 

The  basic  drafting  program  contains  many  desirable  features.  The 
main  feature  is  the  nlook  ahead”  capability.  The  control  reads  infor- 
mation up  to  50  data  blocks  ahead  of  that  which  is  being  drawn.  This 
enables  the  system  to  calculate  optimum  velocity  and  acceleration/de- 
celeration  values.  Thus,  drafting  speeds  up  to  500  inches  per  minute 
are  attainable. 

The  Model  75  table  has  a 5f  x 8!  rubber  platen,  flat  bed  for  a 
drawing  surface,  a vacuum  unit  for  a sectionalized  hold  down  system 
and  an  elevation  mechanism  for  ease  in  viewing  larger  drawings. 

An  additional  feature  of  the  ADM  is  the  optical  line  follower  with 
its  support  equipment  and  software.  Briefly,  this  feature  enables  the 
system  to  automatically  follow  and  record  data  (digitize)  for  a line 
of  any  contour.  When  the  drafting  and  digitizing  capabilities  are 
combined,  the  possible  applications  of  the  system  from  the  engineering 
design  stage  through  the  manufacturing  process  are  greatly  increased. 

One  immediate  use  of  the  ADM  is  verifying  N/C  tapes.  The  accuracy 
of  every  tape  produced,  prior  to  the  advent  of  the  ADM,  was  verified  on 
the  N/C  machine  by  ’’cutting”  air  or  the  actual  component.  In  many  cases 
of  large  operations,  this  required  3-5  hours  or  longer.  On  the  ADM,  it 
takes  only  a few  minutes  for  each  verification.  In  addition,  corrections 
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to  the  tape  can  be  made  immediately.  With  additional  software,  it  will 
be  possible  to  verify  tapes  for  most  of  Watervliet  Arsenal's  N/C 
machines  and  to  eventually  produce  N/C  tapes  directly  on  the  ADM.  The 
importance  of  these  functions  increases  as  the  number  of  N/C  machines 
increases . 

Techniques  and  software  were  required  for  simplified  production  of 
comparator  charts,  overlays,  template  drawings,  etc. 

APPROACH  TO  THE  PROBLEM 

With  the  installation  of  the  ADM  in  1972,  attempts  at  making  drawings 
of  a more  complex  nature  on  the  ADM  were  made.  It  was  realized  that 
programming  of  complex  geometries  was  tedious,  cumbersome  and  time  con- 
suming. Although  additional  software  could  be  purchased  from  the  Gerber 
Scientific  Instruments  Co. , a more  specialized  software  was  needed  to 
meet  the  needs  at  Watervliet  Arsenal.  Thus,  special  purpose  software 
was  developed  when  needed. 

Since  the  Honeywell  Computer,  which  is  the  control  system  for  the 
ADM,  has  its  own  FORTRAN  compiler,  it  was  decided  to  develop  programs 
in  FORTRAN  which  could  be  processed  directly  on  the  ADM.  These  pro- 
grams, although  specific  in  nature,  would  be  general  enough  in  that 
they  could  be  used  repeatedly  like  any  other  FORTRAN  program.  This 
differs  from  the  drafting  language  that  was  supplied  with  the  ADM  in 
that  if  a configuration  is  written  (programmed)  in  the  drafting  language, 
only  that  configuration  can  be  drawn.  Although  variations  of  the  figure 
can  be  made,  i.e.,  change  in  scale,  mirror  image  or  combinations  there- 
of, it  is  still  the  same  configuration.  Programming  in  this  fashion 
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is  cumbersome. 


With  this  idea  in  mind,  the  thought  was  to  produce  as  much  software 
as  possible  to  meet  Watervliet  Arsenal’s  requirements.  As  with  any  new 
system,  many  things  had  to  be  learned  and  peculiarities  discovered  and 
overcome.  The  following  are  some  examples  of  software  developed  to 
meet  the  requirements  at  Watervliet  Arsenal. 

Our  first  attempt  at  familiarization  and  testing  the  idea  proved 
successful  in  the  area  of  cam  path  drawing.  Cam  path  drawings  formed 
from  analytical  data  were  cumbersome  and  time  consuming  for  the  drafts- 
man to  plot  manually.  A FORTRAN  program  to  process  the  analytical  data 
into  ADM  "understandable”  data  has  simplified  the  task  immensely.  Not 
only  has  the  time  required  to  produce  a cam  path  drawing  been  reduced, 
but  the  quality  and  accuracy  has  been  considerably  improved.  Figure 
1 is  a cam  path  drawing  produced  from  the  program  in  Appendix  A. 

In  the  field  of  statistical  analysis,  one  of  the  prerequisites  for 
data  analysis  is  the  plotting  of  data  points.  Several  programs  have 
been  written  to  plot  data,  to  plot  data  and  draw  a line  of  best  fit  of 
the  form  Y = B0  + Bj  X,  or  to  plot  data  and  draw  the  best  fit  line  of 
the  form  Y = BX.  The  line  in  either  case  is  determined  by  the  method  of 
least  squares  which  is  used  to  calculate  the  values  of  the  slope  (B^) 
and  Y - intercept  (B0) . Table  1 lists  a portion  of  these  values  for  a 
sample  data  set.  The  listing  also  contains  the  predicted  value  at  each 
data  point  and  the  upper  and  lower  confidence  limit  for  each  predicted 
value.  The  plotted  data  and  line  of  best  fit  can  be  seen  in  Figure  2. 
Appendix  B contains  the  listing  of  the  linear  regression  program  for 
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Figure  1.  General  cam  path  drawing. 
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TABLE  1.  REGRESSION  .ANALYSIS  TERMINAL  OUTPUT 

DATA  ENT  KY?  < ASh-1,  HSK-OIO 

AVEhAGE  STD  DEVIATION 

A***  0 • A 38  E 02  0 • 1 28  E 02 

*•••  0 • 3 1 6 E 01  0 • 1 2 7E  01 

SLOPE  = 0.99AE-01 

Y-INTEhCEPT  = "0. 1 19E  01 

COP.hELAT  I ON  COEFFICIENT  = C-998E  00 


X 

o.  78  3E 

02 

Y 

0-  6 73E 

0 1 

PH  EL 
0 • 6 59  E 

01 

LCLY 
o. 6A0E 

01 

UCLY 
o.  678E 

0 1 

0 • 7 79  E 

02 

0 • 6 6 2F 

01 

o. 655E 

01 

o.  636E 

01 

o. 67AE 

0 1 

0. 530E 

02 

0. 39SE 

01 

o. A07E 

01 

o.  39 OE 

01 

o. A25E 

01 

0. A57E 

02 

0. 329  E 

01 

0. 335E 

01 

0. 31 7E 

01 

0. 353E 

0 1 

0 • AA9  E 

02 

0. 3 1 7E 

0 1 

0. 327E 

01 

0.  309  E 

0 1 

0. 3A5E 

01 

0.  A 1 6E 

02 

0. 288E 

0 1 

0. 29 AE 

01 

0. 276E 

Cl 

0. 312E 

01 

0. 375E 

02 

0.253E 

01 

0. 253E 

01 

0. 236E 

01 

0 • 2 7 1 E 

0 1 

0- 6 32E 

02 

0-  52 OE 

01 

0. 509E 

01 

0. A9  IF 

01 

0. 527E 

01 

0* A82E 

02 

0. 36 OE 

01 

0. 360E 

0 1 

0. 3A2E 

01 

0.  378E 

0 1 

0. A 27E 

02 

0. 300E 

01 

0. 305E 

0 1 

0 • 28  7E 

01 

0. 323E 

01 

0. 399E 

02 

0. 270E 

01 

0. 277E 

0 1 

0. 26  OE 

01 

0. 295E 

01 

0. 62AE 

02 

0. 510E 

01 

0. 501E 

01 

0.  A8 3E 

01 

0. 519E 

01 

0. A95E 

02 

0. 370E 

01 

0. 373E 

01 

0. 355E 

01 

0. 390E 

01 

0. A3 AE 

02 

0 • 3 1 OE 

01 

0. 3 12E 

01 

0. 29AE 

01 

0. 330E 

0 1 

0. 37AE 

02 

0.260E 

01 

0. 252E 

01 

0. 235E 

01 

0. 270E 

01 

0. 6 1 5E 

02 

0. 500E 

01 

0. A92E 

01 

0. A7AE 

01 

0 • 5 1 OE 

01 

0» A99E 

02 

0. 380E 

01 

0 • 3 7 7E 

01 

0. 359E 

01 

0*  39 AE 

01 

0» A20E 

02 

0. 300E 

01 

0. 298E 

01 

0. 28  OE 

01 

0. 31 6F 

01 

0. A10E 

02 

0 • 29  OE 

01 

0. 288E 

01 

0. 270E 

0 1 

0. 3C6E 

01 

0. 515E 

02 

0. AOOE 

01 

0. 393E 

0 1 

0. 375E 

0 1 

0. A 1 OE 

01 

0. 50 7 E 

02 

0 • 39  OE 

01 

0.  38  5E 

01 

0.  36 7E 

0 1 

0. A02E 

01 

0 • 8 29  E 

02 

0. 670E 

01 

0. 705E 

01 

0. 685E 

01 

0. 72 AE 

01 

0* AOOE 

02 

0. 270E 

01 

0. 278E 

0 1 

0. 26  OE 

01 

0. 296E 

01 

0. 316E 

02 

0.  1 9 OE  i 

01 

0.  19 5E  i 

01 

0. 1 77E 

01 

0 • 2 1 3E  i 

01 

0.P79E  i 

02 

0- 1 50E  1 

01 

6 

C.  1 58 E 01 

0.  1 A OE  01 

0. 1 76E  1 

01 

M 

X10  EXP  1 
♦.7045 


RUN  TWO 


♦.0330 


♦.5033 


♦.4020 


♦.4222 


♦.3510 


♦.2011 


♦.2105 


♦.1300 


X10  EXP  2 

*.£658  *.3586  *.4536  *.5475  *.6413 


♦.7351  *.6280 


-LN  M 


Figure  2.  Sample  data  plot  with  regression  line. 
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the  model  Y - BQ  + B^X  + e along  with  the  input  data  and  output  (draft- 
ing language)  commands. 

In  the  manufacture  of  component  parts,  dimensions  must  be  checked 
to  insure  they  have  been  manufactured  within  drawing  specifications. 

One  method  for  checking  is  by  using  comparator  machines.  Briefly,  this 
machine  projects  a silhouette  of  the  component  upon  a screen  which  has 
an  accurate  outline  of  the  component  with  its  maximum  and  minimum 
tolerances.  This  accurate  drawing  was  previously  drawn  manually  at  a 
much  larger  scale  and  then  photographically  reduced  and  reproduced  on 
a transparent  material  - mylar  or  glass.  With  the  introduction  of  the 
ADM,  these  comparator  charts  are  currently  being  drawn  on  the  ADM.  One 
particular  type  of  comparator  chart,  which  is  used  regularly,  is  in  the 
production  of  broach  teeth  used  in  the  manufacture  of  cannon  rifling. 

The  procedure,  whether  done  manually  or  on  the  ADM,  was  tedious  and  time 
consuming,  requiring  approximately  16  hours  to  complete.  The  program, 
listed  in  Appendix  C,  reduces  this  task  to  one  which  requires  less  than 
one  hour  from  broach  drawing  to  finished  comparator  chart.  Figure  3 
is  an  example  of  a comparator  chart  for  the  broach  teeth  used  in  the 
manufacture  of  a 105mm  M68  gun  tube. 

Similarly,  in  shaping  various  contours,  as  in  the  manufacture  of 
breech  ring  sectors  on  a gun  tube,  a cutter  form  tool  is  used.  In 
general,  these  tools  have  similar  geometries  which  make  them  conducive 
to  writing  a general  program  to  aid  in  the  production  of  comparator 
charts.  Figure  4 is  an  example  of  a comparator  chart  for  a tool  used 
on  the  152mm  M81  gun  tube.  Appendix  D is  the  listing  of  the  FORTRAN 
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comparator  chart  for  the  105mm  M68  gun 
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Figure  4.  Cutter  form  tool  comparator  chart  for  the  152mm  M81  gun  tube. 


program  used  to  produce  the  chart. 

In  drawing  gear  tooth  profiles,  the  form  most  commonly  used  today 
is  the  involute  profile.  The  involute  is  the  curve  that  is  formed  by 
the  end  of  a line  that  is  unwound  from  the  circumference  of  a circle. 

It  is  not  the  intent  here  to  present  the  theory  or  mathematics  necessary 
for  developing  gear  profiles.  However,  by  viewing  Figure  5,  one  can 
appreciate  the  task  involved  in  obtaining  the  end  result.  The  heavy 
lined  portion  is  the  "useable”  or  ’’physical’1  gear.  The  general  program 
is  listed  in  Appendix  E and  was  used  to  form  the  gear  profile  template 
needed  in  the  production  of  the  20mm  torsion  bar. 

Numerous  special  purpose  programs  were  written  to  assist  in  the 
efficiency  and  versatility  of  programming  for  increased  utilization  of 
the  ADM.  Some  programs  are  aids  in  developing  and  producing  Vu-graphs. 
These  programs  reduced  the  latter  task  from  a few  hours  down  to  a few 
minutes.  Two  such  examples  are  shown  in  Figures  6 and  7.  Although 
they  are  relatively  simple  in  appearance,  prior  to  the  programs  devel- 
oped (Appendix  F) , consideration  had  to  be  given  to  letter  size, 
spacing,  etc.  If  the  letter  size  was  not  appropriate,  reprogramming 
was  necessary  (or  redrawing  if  done  manually),  resulting  in  wasted 
effort.  With  the  computer  program,  a minor  change  can  be  made,  re- 
sulting in  acceptable  Vu-graphs. 

Other  FORTRAN  programs  were  extremely  beneficial  in  reducing  the 
time  involved  in  tedious  mathematical  calculations  necessary  for  pro- 
gramming in  the  ADM  language.  Some  of  these  include  determining  points 
of  tangency,  a point  of  intersection  for  two  circles,  a line  and  a 
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Figure  5.  Gear  teeth  profiles  for  the  20mm  torsion  bar. 
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Figure  6.  Example  of  vu-graph  application. 


14 


Figure  7.  Example  of  vu-graph  application. 


circle,  two  lines,  etc.  Each  of  these  was  in  the  form  of  a main  program 
and  also  as  a subroutine  so  they  could  be  run  alone  or  as  part  of  an- 
other main  program. 

All  of  the  preceding  programs  were  written  in  a form  acceptable  to 
the  ADM  control.  Another  approach  was  to  investigate  methods  of  inter- 
facing the  ADM  with  Watervliet  Arsenal's  main  frame  computer,  IBM  360, 
Model  44.  Initially,  there  were  no  feasible  means  of  interfacing  the 
two  systems  without  the  procurement  of  additional  hardware  which  was 
beyond  the  scope  of  this  project.  It  was  not  until  the  Computer  Science 
Office  purchased  a Lundy  Computer  Graphics  System  (CGS)  that  a break- 
through was  made.  Since  one  of  the  I/O  devices  on  the  Lundy  was  punched 
tape,  and  the  ADM  also  operates  with  punched  tape,  this  was  the  obvious 
way  to  proceed  with  a minimum  cost.  Therefore,  software  was  developed 
which  now  permits  any  configuration  that  can  be  drawn  on  the  CGS  to  be 
drawn  on  the  ADM.  Figure  8 is  an  example  which  was  "drawn"  on  the  CGS 
and  then  reproduced  on  the  ADM.  Figure  9 is  another  example  of  inter- 
facing the  two  systems.  In  this  case,  a WARP  (Work  and  Resources  Plan) 
chart  program  was  written  specifically  for  the  CGS  as  a preliminary  step 
to  being  drawn  on  the  ADM.  WARP  charts  are  created  on  the  CGS  from  a 
sketch  or  a "marked  up"  WARP  which  is  to  be  modified.  The  process,  de- 
pending upon  complexity,  requires  from  10  minutes  to  one  hour  to  com- 
plete. "Mistakes"  may  be  "erased"  easily  on  the  CGS  prior  to  a finished 
drawing.  Thus,  this  type  of  computerization  releases  the  draftsmen 
from  the  mundane  tasks  to  more  technical  projects.  The  "drawing"  of 
WARP  charts  can  now  be  done  with  clerical  level  personnel,  thus,  con- 
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Figure  8.  Computer  graphics  system  reproduction. 
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siderable  cost  savings  will  be  realized. 

Relative  to  the  field  of  numerically  controlled  (N/C)  machines,  the 
ADM  has  been  an  extremely  useful  tool.  Watervliet  Arsenal  has  over  50 
N/C  machines  whose  tool  movements  are  directed  by  commands  on  punched 
tape.  Prior  to  the  advent  of  the  ADM,  N/C  tapes  were  verified  directly 
on  the  machine  for  which  they  were  intended.  This  process  was  often 
time  consuming  and  frustrating.  Delays  were  encountered  in  waiting  for 
a break  in  production.  When  a machine  was  eventually  available,  the 
tape  was  verified  by  cutting  air,  then  by  possibly  cutting  wood  or 
plastic  and  then  finally,  an  actual  steel  component.  At  each  stage 
when  errors  were  detected,  corrections  had  to  be  made  and  the  process 
repeated.  Some  tapes  required  up  to  five  or  six  hours  to  run  through 
their  cycle.  Now,  with  the  use  of  the  ADM,  instead  of  cutting  air  or 
wood,  etc. , the  center  line  of  the  path  of  the  cutting  tool  is  drawn 
on  paper  in  minutes.  Tool  movements  can  be  magnified  by  a change  in 
scale  to  detect  minute  errors  which  could  not  have  been  detected  until 
the  final  component  was  produced  and  inspected.  Figure  10  represents 
the  path  of  an  N/C  tape  verified  on  the  ADM. 

Since  the  ADM  was  installed,  over  200  tapes  have  been  verified. 
Although  the  ADM  is  a versatile  machine,  tapes  for  all  types  of  machines 
and  manufacturing  applications  cannot  be  verified.  The  listing  in  Table 
2 is  a summary  of  the  various  types  of  N/C  machines  which  can  be  verified 
on  the  ADM.  Prior  to  January  1976,  many  of  those  machines  listed  could 
be  verified  but  on  several  of  the  machines  (marked  *)  problems  were 
encountered,  many  of  which  were  minor  in  nature.  Using  Digital  Assembly 


18 


Figure  10.  N/C  verification  - centerline  of  cutting  tool  path. 
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TABLE  2.  N/C  MACHINES  VERIFIED  ON  THE  ADM 


Wolverine,  P§W  Vertical  Spindle  Mill 
Kearney  § Trecker  Machining  Center 
Lodge  and  Shipley  Lathe 
Cincinnati  Turning  Center 
Sunstrand  Machining  Center 
Omnimil 

Bostomatic  Vertical  Spindle  Mill 
LeBlond  Horizontal  Lathe  (Tubes) 

LeBlond  CXR  - Horizontal  Lathe  (Small  Components) 

Pratt  5 Whitney  Wolverine  - Vertical  Spindle  Mill 

Cincinnati  Hydrotel  - Vertical  Spindle  Mill 

Bullard  UTL  - Vertical  Lathe 

CIM-X  720  - Horizontal  Spindle  Mill  § Drill 

XLO  Chucker- Vertical  Lathe 

*American  Lathe 

*Giddings  and  Lewis  Machining  Center 


*Verified  but  with  minor  problems. 
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Programming  (DAP),  modifications  were  made  to  the  Drafting  Language 
Program  which  permitted  the  ADM  to  now  process  tapes  for  those  N/C 
machines.  Verification  of  the  few  other  machines  not  listed  are 
currently  being  pursued. 

A recently  completed  contract  with  RRC  International,  Inc.,  forms 
the  initial  step  to  producing  N/C  tapes  directly  on  the  ADM.  The  soft- 
ware developed  by  this  company  permits  Watervliet  Arsenal  to  produce 
an  N/C  tape  for  any  N/C  machine  for  which  an  N/C  APT  post-processor 
exists.  The  process  is  summarized  as  follows: 

a.  An  accurate  drawing  of  the  part  profile  is  digitized  on  the 

ADM. 

b.  The  resulting  tape  is  then  processed  on  the  IBM  360-44  for  the 
requested  N/C  machine. 

c.  This  resulting  tape  is  then  used  to  control  an  N/C  machine. 
While  this  software  was  being  developed,  consideration  was  given  to 

producing  N/C  tapes  on  the  ADM  without  using  a main  frame  computer. 

That  is,  a component  profile  was  digitized  and,  with  the  aid  of  a parts 
programmer,  machine  parameters  were  entered  manually  via  the  teletype- 
writer unit.  The  successful  machining  of  the  profile  shown  in  Figure 
11  was  accomplished  on  a Bostomatic  Milling  Machine. 

Although  both  contract  and  in-house  efforts  have  been  successful  in 
producing  N/C  tapes,  more  work  is  needed  before  the  ADM  can  act  as  an 
independent  supplement  to  the  parts  programmer.  This  will  be  pursued. 
However,  the  use  of  the  ADM  for  verifying  tapes  has  been  accepted  as 
economical  by  the  Arsenal  Operations  Directorate. 
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CONCLUSIONS 


The  preceding  accomplishments  are  representative  of  the  type  of  auto- 
matic drafting  applications  at  Watervliet  Arsenal.  The  problems  per- 
taining to  N/C  verification  have  been  overcome  and  those  associated 
with  N/C  production  are  in  the  process  of  being  solved  with  no  real 
problems  in  sight. 

Since  no  new  drafting  languages  exist  which  can  help  in  programming 
the  ADM,  the  FORTRAN  language  will  continue  to  be  an  extremely  useful 
aid  in  a generalized  programming  of  the  ADM.  As  the  need  arises,  new 
computer  programs  will  continue  to  be  developed  to  minimize  drafting 
program  efforts  and  to  maximize  ADM  utilization. 

With  the  advent  of  the  new  Computer  Graphics  System,  a whole  new 
realm  of  computer  aided  drafting  applications  has  opened  for  the  ADM. 

As  more  developments  are  introduced  in  the  computer  graphics  field, 
greater  ADM  applications  are  foreseen. 
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APPENDIX  A 


COMPUTER  PROGRAM  TO  PRODUCE  CAM  PATH  DRAWINGS 


WDIMENSION  JX<  5)  * JY<  5) 

WDATAIP*M/  1H  + * 1 H-  / 

WWhl  TE(  2*  1 7) 

1 7WFORMAT< 1H*) 

20  WREAD( 1* 1)N 

I WFORMAT<  I 3) 

\\I F(N) 2*  2*  3 
3\\I  = 1 

10WREAD< 1* 4) A*R 
4WF0hMAT<  2F8 . 0) 

\\I SX= I F 
\\I SY=  I P 

\ \A=  A/ 180. *3. 14  159 
WX=R*COS<  A) 

W I F(  X ) 13*  13*  14 
1 3\\ I SX=M 
14WY  = R*SIN<  A) 

WIF(  Y)  15*  15*  16 
15WI  SY  = M 
16\\IX  = X*  1000* 

\\I Y = Y*  1000. 

WCALL  CONVERC IX* 5* JX) 

WCALL  CONVER< I Y* 5* JY) 

\\I  F(  I - 1 ) 5*  5*  6 

5\\VRnE<  2*  7)  I SX*  JX*  I SY*  JY 

7 WF0RMA7  ( 4H  GO  IX*  A 1 * 5A  1 * 1H  Y*  A 1 * 5A  1 * 4HD02*) 
\\I=I+ 1 
W GO  70  10 

6WV.RI  7 E(  2*8)  I SX*  JX*  I SY*  JY 

8WF0RMAK  4H GO  1 X*  A 1 * 5A  1 * 1HY * A 1 * 5A  1 * 4HE01*) 
\\I=I+ 1 

\\IF( I-N) 10* 10*9 
9\URI  TE(  2*  1 1 ) 

I I WFORMAT<  8HD02*M00* ) 

W GO  70  20 

2WVIKI  7E(  2*  12) 

1 2 \ \ F 0 hM  A 7 ( 4HM30*) 

WS70P 

WEND 

\\  so 

w 
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APPENDIX  A 


COMPUTER  PROGRAM  TO  PRODUCE  CAM  PATH  DRAWINGS  (cont) 


WSUBhOUTINE  CONCEKC  IOUD 

WDIMENSION  IOUTC  1 ) * I TOAC  10) 

WDATA  I TOAC  1 > > I TOAC  2)  > I TOAC  3>  * I TOAC  4)  * I TOAC  5)  > I TOAC  6)  > I TOAC  T>  t 

lU0A(8)iI  TOAC  9)  t I TOAC  105/ 1H0*  1H  \>  1H2*  1H3*  1H4*  1H5*  1H6*  1H7* 1H6> 1H9/ 

\\IN=I ABSC  JN) 

\\E>01  1=1  jN 

WNMI  =N-  I 
\\N0=IN/ 10**NMI 
\\IN=IN-NO*  1 0**NMI 
WNJ-  1 = N0  + 1 

1WI0UTC  I ) = I TOAC  IMP  1 ) 

WhETUFiN 

WEND 
\\  50 
\\ 
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APPENDIX  B 


LINEAR  REGRESSION  ANALYSIS  PROGRAM 


C\\  CHAIN  JOE-SEG.  1 

CWLINEAR  REGRESSION  (LINREG)  PROGRAM-PLOTS  TATA  POINTS  AND  LINE 
CWOF  "EEST  FIT.”  PROGRAM  WILL  ACCEPT  UP  TO  50  DATA  POINTS. 
CWTITLE  ALLO VANCE-  32  CHAhACTERS 
CWX  AND  Y AXIS  LABELS- 1 6CHARACTERS 

CWTHE  FOLLOWING  PARAMETERS  ARE  NEEDED  TO  PLOT  POINTS: 

CWCl)  SYMBOLS  D 7 3 / D8  5 (2)  S SM  5 0 5*  M51  12*5  C 3)  FSNA  X13Y13 

C\\( A) I CA 

\\ COMMON  XMIN/XMAX/ YMIN/ YMAX/X/ Y/ A/E/N 

\\ DI MEN SI  ON  I HEADC  16)/  LABXC  8 ) / LABY  (8>/XC50)/YC50> 

WDI  MEN  SI  ON  JXC4)/JYC4) 

WEQUI  VALENCE?  I HEADC  1 ) / LABXC  1 ) ) / C I HEADC  9 ) / LABY C 1 ) ) 

WDATA  MARK/  1H*/ 

C\\ 

CWREAD  SAMPLE  SI  XE/  ‘T  'VALUE 
C\\ 

WWRI  TEC  1/40) 

40WF0RMATC  26HDATA  ENTRY?  CASR-1/  HSR-0)  ) 

WREADC  1/  41  )MASR 
4 1\\ FORMAT? I 1 ) 

WI FCMASR.  EG-. 1 ) G0T048 
99WREADC  2/  1 )N/  T 
W GO  TO  49 

48WREADC  1/  1 ) N/  T 
1 WFORMATC  I 3/  F7. 0) 

CW 

CWREAD  GRAPH  HEADINGS  ND  X/ Y LABELS 
CW 

49 W I FCMASR. EG*  1 ) GO TO 42 
2 WREADC  2/  3)  I HEAD 
3WF0RMATC  16A2) 

W GO  TO 43 

42WREADC  1/  3)  I HEAD 
CW 

CWPRINT  HEADING/  X<£Y  LAE  ELS 
CW 

43WVRI  T EC  2/  2 1 ) 

21  WFORMATC  1 8H*  GO  1 XO 000Y9 000DG2*  ) 

WViRI  TEC  2/22)  I HEAD/ MARK 
22 WFORMATC  9HM51G56D10/  16A2/  A1  ) 

WI  FCMASR*  EG.  1 ) GO  TO  44 
WREADC  2/  3>  LABXz  LABY 
W GO TO  4 5 

44  WREADC  1 / 3 ) LABX/ LABY 
45WVHI  TEC  2/  23) 

23 WFORMATC  18HG0  IX- 0500Y8  300D02*  ) 

WVRI  TEC  2/ 24)  LABY/ MARK 
24  WFORMATC  6HG56D10/  8A2/ Al) 

WV/RITEC  2/  25) 

25WF0RMATC  18H  GO  1X2000Y-  1000D02*) 
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APPENDIX  B 


LINEAR  REGRESSION  ANALYSIS  PROGRAM  (cont) 


WWRI  TE(  2»  26  > LABX j MARK 

26WF0RMAT< 6H G56 D 1 0> 8A2* A \» 4HM00* ) 

WXMIN  = 1 . E10 

WXMAX=- 1 .E10 

WYMIN  = 1 .ElO 

WYMAX  = - 1 E 1 0 

CW 

CWREAD  DATA 
CW 

\ \ DO  5 I=DN 
\ \ I F( MASK*  EQ • 1) GOTO 46 
WREADC  2>  4>X<  I )>  Y<  I > 

W GO  TO  4 7 

46WREAD(  1>4)X<I)>Y<I) 

4WF0RMAT<  2F  10. 0) 

47WXMIN  = AMI  N 1 < XMIN>X<  I ) ) 
WXMAX=AMAX1<XMAX#X<  I ) > 
WYMIN=AMIN1<YMIN/Y<I>  > 
WYMAX=AMAX1<  YMAX>  Y<  I > > 

5WCONTINUE 

CW 

CWCALCULATE  STATISTICS  ON  HAW  DATA 
CW 

WCALL  STAT(X>  Y>N,  T*A>B> 

WCALL  CHAIN 
WEND 

wso 
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APPENDIX  B 


LINEAR  REGRESSION  ANALYSIS  PROGRAM  (cont) 


C CHAIN  JOB  SEG.-2 

51  CONTINUE  CHAIN 

COMMON  XMINjXMAX* YMIN*YMAX*X* Y*  A* E*N 

DIMENSION  X<  50) * Y<  50) * JX<  4> * JY<  4) * T I CX( 7) * TI CY( 9) 

EQUI  VALENCE  (X(  1 ) * TI CXC  1 ) ) * C YC  1 ) * T I CY(  1)) 

DATA  MAhK*  IP.»M/1H**  1H  + * 1H-  / 

PLO=A+B*XMIN 
TH I = A+fi*XMAX 
DUM=  0 . 

I F C PLO • L T • PH  I ) GO  TO  300 
DUM=  PH  I 
PH  I = PL  0 
BL0=  DUM 

300  YMI N= AMI  NIC  YMI N*  BLO ) 

YMAX=AMAX1C YMAX* PHI ) 

SCALE  DATA  TO  I NCHESC C X . XXX ) * 1 000 . ) & BLO T 


BUNCH  DATA  POINTS 

DELX= C XMAX-XMI N) /6 • 

DELY=( YMAX-YMIN) /8. 

DO  9 I = 1 * N 

I X= 1 000 • * C XC  I ) -XMI N ) / DELX 
I Y= 1 000 • *C  YC  I ) -YMIN) /DELY 
CALL  CONVEKC IX>  4i JX) 

CALL  CONVEHC I Y*  4*  JY) 

ViRl  TEC  2*8)  JX*  JY 

F 0 hM A T ( 4HG01X*  4AU  1HY*  4A  1*  4HB02**  1 0HK50G52D73*) 
CONTINUE 

DRAW  AX I S 

WhI  TEC  2^11) 

1 FOKMATC  1 7HG0 1X0000Y8  000D02* ) 

LKI TEC  2*  12) 

2 FOKMATC 12HG01 Y0000D01*) 

VKITEC  2j  13) 

3 FOKMATC  9H GO 1X6000* ) 

TIC-MAKK  LABELS 

DO  6 1 = 1,7 
XI =1  - 1 

TI  CXC  I )=XMIN+XI*DELX 
6 CONTINUE 

DO  7 1=1*9 
XI  = I - 1 

TI  CYC  I ) =YMIN+XI * DELY 
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APPENDIX  B 


LINEAR  REGRESSION  ANALYSIS  PROGRAM  Ccont) 


7 CONTINUE 
KEX=  0 

IF( AESC T I CX<  1 ) ) .LT . AES<  TI CX<  7) )) GO  TO  200 
XX=ABS< TI  CX< 1 ) ) 

GO TO  6 5 

200  XX=TICX(7) 

65  IF(XX- 1 0.**KEX) 67* 66* 66 

66  KEX=KEX+ 1 
GO  TO  65 

C 

C X-AXIS  LABELS&  TI C MARKS 

C 

6 7 DO  69  1=1,7 

IT I C=<  T I CX< I )/ 10*  **KEX) * 10000. 

I ST= I P 

I F<  I TI  080*8  1*8  1 
80  I ST=M 

8 1 CALL  CONVERCITIC*  4*  JX) 

IK  1=  1000*< I- 1) 

CALL  CONVEh< IM 1* 4* JY) 

WRI  TE<  2*  68)  JY*  1ST*  JX 

68  FORMAT < 4H GO  IX*  4A1* 1 6HY- G500E02* G56D1 0* A 1 * 1H.*4A1* 1H*) 
UR  I TE<  2*  70)  JY 

70  FORMAT( 4HG01X* 4A1* 1 6HY0000D02* G52D8 5* ) 

69  CONTINUE 
KEY=0 

IF<ABS<TICY<  1))  .LT*  ABS<  TICY<9)))G0T0201 
XX  = ABS<  TI CY < 1 ) ) 

GO  TO  71 

201  XX=  TI C Y < 9 ) 

71  I F<  XX- 10***KEY)  73*  72*  72 

72  KEY=KEY+  1 
GO  TO  71 

C 

C Y-AXIS  LAEELS  & TIC  MARKS 

C 

73  DO  75  1=1*9 
ITIC=<TICY<I)/ 10»**KEY)*10000* 

I ST= I P 

IF<ITIC)82*83*83 
8 2 I ST=M 

83  CALL  CONUEh< I TI C* 4* JY) 

IM  1= 1 000*  < I- 1) 

CALL  CONVEh< IM 1* 4* JX) 

WRI TE< 2*  74 ) JX* I ST*  JY 

74  FOHMAT<  10HG01X-  1000Y*  4A1*  1 0HD02* G56 D 1 0* A 1 * 1H.*  4A1*  1H*) 
WRI  TEC  2*  76)  JX 

76  FORMAT < 9HG0 1X000 OY* 4A1* 1 1HD02* G53D8 5* > 

75  CONTINUE 
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APPENDIX  B 


LINEAR  REGRESSION  ANALYSIS  PROGRAM  (cont) 


C 

C PRINT  MAGNITUDE  OF  TIC  MAhK  LAEELS 

C 

C X-AXIS 

C 

WRI  TEC  2>  77)  HEX 

77  FOhMATC 32HG0 1X3000Y- 0300D02* G56D 1 OX  1 0 EXP  *I1*1H*> 
C 

C Y-AXIS 

C 

WRI TEC  2>  78 ) KEY 

78  FOHMATC 32HG01X-  1250Y8 1 50D02*G56D 1 OX  1 0 EXP  *11*  1H*) 

C 

C DRAW  PREDICTED  LINE 

C 

IFC  DUM • EG*  0 • ) G010301 

PLO=PHI 

PH I = DUM 

301  I YLO=  1 000 • *C  PLO- YMIN ) / DELY 

CALL  CONVERC I YLO> A> JX) 

I YHI = 1 000. *C  PHI -YMIN) /DELY 
CALL  CONVERC IYHI>A>JY) 

WhlTEC 2»  1 A) JX 

1 A FOHMATC  8H  GO  1X0000>  1HY>AA1>AHD02*) 

WRI TEC  2>  15) JY 

15  FORMAT C8HG01X6000*  1 H Y .»  A A 1 > AH r 0 1 * ) 

C 

C DRAW  8*5  X 11  EORDER 

C 

96  WRI TEC 2> 16) 

16  FOhMATC 18HGC1X- 1 750Y9500D02*) 

WRI TEC  2>  17) 

17  FOP.MATC  13HG01Y-  1500D01*) 

WRI TEC  2>  18) 

18  FOHMATC 9HG0 1X6 750*) 

WRI TEC 2> 19) 

19  FOHMATC  9HG01Y9500*) 

WRI TEC  2* 20) 

20  FOHMATC 10HG01X- 1 750*) 

WRI TEC  2>  100) 

100  FOhMATC 12HG0 1X9999 D02*> 

50  WRI TEC 2> 28) 

28  FORMAT  C AHM30* ) 

END 

SO 
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APPENDIX  B 


LINEAR  REGRESSION  ANALYSIS  PROGRAM  (cont) 


INPUT 

462*0168 

hUN  IkO 


-LN  M 

78.3 

6*73 

77.9 

6-62 

53- 

3*95 

45*  7 

3.29 

44*9 

3*  17 

4 1*6 

2.88 

37*5 

2.53 

63*2 

5*2 

48*2 

3*6 

42-  7 

3. 

39.9 

2.7 

62.4 

5.  1 

49 . 5 

3.7 

43*4 

3.  1 

3 7.4 

2*6 

6 1*5 

5. 

49 .9 

3.8 

42. 

3* 

4 1 . 

2.9 

51*5 

4. 

50.7 

3*9 

82.9 

6.  7 

40* 

2.7 

3 1*6 

1 *9 

27.9 

1 * 5 

26 .6 

1.4 

32*5 

2*05 

34.8 

2. 31 

45*9 

3*21 

36.  1 

2. 39 

3 1*1 

1.9 

32. 7 

2*04 

34*5 

2*23 

33*6 

2.  16 

33*9 

2*  16 

35*2 

2*25 

37.7 

2*48 

40*4 

2*89 

37* 

2*53 

34.  1 

2*24 

34.2 

2-26 

49 . 7 

3*83 

39. 

2. 76 

36.2 

2*46 

41  • 

3.  02 

44.  1 

3*24 
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APPENDIX  B 


LINEAR  REGRESSION  ANALYSIS  PROGRAM  (cont) 
OUTPUT  (DRAFTING  LANGUAGE  COMMANDS) 

*G01X0000Y9  000D02* 

K51G56D10  hUN  TlvO  * 

G01X-0500Y8300D02* 

G56D10M  * 

G01X2000Y- 1 000E02* 

G56D10~LNM  *JXOO* 

GO  1X5509  Y7553E02*K50G52I' 73* 

GO  1X546 7 i 739 7E02*K50G52E73* 

GO  1X28 1 3 Y 36 1 3E02*M  50  G52E73  * 
G01X2035Y2678E02*h50G52D73* 
G01X1950Y2508D02+M5CG52D73* 

GO  IX  1 598 Y 209 7D02*M50G52E73* 

GO  1X1  16  1Y  1 60 1 L‘02*M50G52E73* 
G01X3900Y5384D02*M50G52E73* 

GO  1X230 1 Y3 1 1 7D02*K50G52E73* 

GO  1X1  7 1 5Y226  7E02*M50G52E'73* 

GO  IX 14 1 7Y 18  42E02*M50C52D73* 

GO  1X38 15Y5243D02*K50G52D73* 

GO  1X24401 32  59  E02*K50G52D73* 

GO  1X1 790Y2409D02*M50C52E73* 

GO  IX 1 1 50Y 1 7 00D02*M50G52D73* 

G01X3719Y5 101D02  *M 50G52E73* 

GO  1X248  3Y  340 1 E02*M50G52E'73* 

G01X1641Y226  7D02*M  50G52D73* 

GO  IX 1 5 34Y2 1 2 5D02*M 50G52D73* 
G01X2653Y3684D02*M50G52D73* 

GO  1X2568 Y 3 542D02*to  50G52D73* 

G01X5999Y75 1 0D02*M  50  G52D73* 

G01X1428Y18  42E02*M  50G52  D7  3* 

GO 1X0532Y0708D02*M50G52D73* 

G01X01 38Y0141 E02*M  50G52D73* 

G 0 1 X0000Y0000E02*M  50G  52E  73* 

GO  1X06  28 Y09 2 1 D02*M 50G52E73* 

G01X08  73Y 1289  D02*M  50G52  E73* 
G01X2056Y2564D02  *h  50G52D73* 

G01X1012Y1  402E‘02*K  50G52D73* 

G01X04  79Y  0 708  E02*M  50G52D73* 

GO  1X065 OY  0906D02*M50G52D73* 

G01X0841Y 1 1 76D02*M50G52D73* 

GO  1X0  746 Y 10  76E02*M50G52D73* 

G01X0777Y 1 076D02*M50G52D73* 

GO  1X09 16Y 1204D02*M50G52D73* 

GO  IX 1 182Y 1 530D02*M50G52D73* 

GO  IX  14  70Y2 1 1 1 E02*M50G52D73* 

G01X1 108Y1601 E02*M50G52E73* 

GO  1X0799 Y 1 1 9 0D02*K  50G52E73* 

GO  1X08 09 Y 12 18D02+M5  0G52D73* 
G01X2461Y3443D02  *M 50G52D73* 

GO  IX  132 1 Y 192  7E02*M50G52D73* 

G01X1023Y 1 502D02+M50G52E73* 

GO  1X1 534Y2295D02*M50G52E73* 
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LINEAR  REGRESSION  ANALYSIS  PROGRAM  (cont) 

OUTPUT  (DRAFTING  LANGUAGE  COMMANDS) 

GO  IX 1865Y2607D02*M50G52D73* 
G01X0000Y8000r02* 

GOlYOOOOLOl* 

go  lxeooo* 

GO 1XOOOOY- 0500D02*G56D 1 0+.2659* 
G01X0000Y0000D02*G52D85* 

GO  IX lOOOY- 0500D02*G56D10+ • 3598* 
GOIXIOOOY  0000D02*  G52D8  5* 
G01X2000Y-0500D02*G56D10+ .4536* 

GO 1X2000Y  0000D02*G52D8  5* 

G01X3000Y- 0500D02*  G56D 1 0+  • 5475* 

GO  1 X3000Y  0000D02*G52D8  5* 

G01X4000Y- 0500D02*G56D10+  * 64 1 3* 
G01X4000Y0000D02*G52D85* 

G01X5000Y- 0500D02*  G56C 1 0+ • 7351* 
G01X5000Y000QD02*G52D85* 
G01X6000Y-0500D02*G56D10+.8290* 
G01X6000Y0000D02*G52D85* 

GOIX- lOOOY  0000D02*  G56D10+.  1399* 

GO 1X0000Y0000D02*G53D85* 

GOIX- lOOOY 1000D02*G56D 10+. 2 105* 
G01X0000Y1000D02+G53D85* 

GOIX- 1000Y2000D02+G56D10+.28 11* 
G01X0000Y2000D02+G53D85* 

GOIX- lOOOY 3000D02*G56D10+. 35 16* 
G01X0000Y3000r02*G53D85* 

GOIX- 1000Y4000D02*G56D10+.4222* 

GO 1X0000Y4000D02*  G53D8  5* 

GOIX- lOOOY 5000T02*G56D 10+ .4928* 

GO 1X0000Y5000E02+G53D85* 

GOIX- 1000Y6000D02*G56D10+ • 5633* 
G01X0000Y6000D02*G53D85* 

GOIX-  1 000Y7000D02*  G56D10+.6339* 
G01X0000Y7000D02*G53D85* 

GOIX- 1 000Y8000D02*G56D10+. 7045* 
G01X0000Y8000D02*G53D85* 

GO 1X3000Y- 0300D02*  G56D10X 1 0 EXP  2* 
GOIX- 1250Y8 150D02*G56D10X10  EXP  1* 
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COMPUTER  PROGRAM  TO  DRAW  RIFLING  BROACH  COMPARATOR  CHARTS 


CWFROGRAK  TO  DRAW  RIFLING  BROACH  COMPARATOR  CHART  • 

CWR1  -LARGE  RADIUS 

CWR2- SMALL  nADI  US 

CWA-BROACH  ANGLE 

CWW-ONE-HALF  EROACH  WIDTH 

CWIiCi  RCM-MAX  AND  MIN  CORNER  RADIUS* 

\\ COMMON  JX(  8) j JYC  8 ) j KXC  8) » KYI  8 > 

WDATA  I P»M/  lH  + > 1H-/ 

WWRITEC  2->  5) 

5WFORMATC  38H*  %FSNAX  3 5Y3 5* SSM 50  * 26  7*  SF A6 2 * 5B6 2 * 5*  %*  ) 

\\I  =0 
\\I 11=0 
WJJ=3 
70WI  1=0 

WREADC  1j  2)R1j  A>  W*RCjRCMjR2 
WI  FC  I II • EG • 0) SC=R 1 
2WF0RMATC  6F1 0*  0) 

\\A= A*. 01745329 
WIFCIII  *EG*0)V1=V 
50\\ J=2 

WBB  = R1* 100000* 

WCALL  CONVERC BB*8>JY) 

WCALL  CONVERC  0 • j 8j  JX ) 

WWRI  TEC  2j  3UPj  JX*  JYj  J 

3WF0RMATC  AH  GO  IX j A 1 , 8 A 1 > 1HY.»  8A  1 » 2HD0.»  I 1 » 1H* ) 

\\J=  1 

\\AA=W 1*100000* 

WCALL  CONVERC  AA>  8j  JX) 

WWRI  TEC  2*  3)  I P > JX>  JY*  J 
\\C3=SGRTC CR1*R1)-W*W) 

WBB=C3* 100000* 

\\CC=R 1 * 100000* 

\\AA=C Vl-V)* 100000* 

WCALL  CONVERC  0*^8^  JX) 

WCALL  CONVERC  AAj  8j  KX) 

WCALL  CONVERC  BB.»  8->  JY) 

WCALL  CONVERC CC> 8jKY) 

WWRI  TEC  2j  A)  JJj  IPjKXjJYjJXjKY 

4WF0RMATC  2HG0>  I 1,  1HXjA1>8A1>  1HYj8A1>  1 H I * 8 A 1 .»  1 H J,  8 A 1 j 4HD0  1 * ) 
W I FC  RC • EG • 0 • ) G0T080 
30WIFC  A*EQ*0*  ) GO  TO  10 

WAA=W/C  SINC  A)  / CO SC  A)  ) +C3-RC/SINC A) 

WEE=C  AA+SINC  A)  ) /(  Rl-RC) 

WBB=AA*COSC  A)-(R1-RC)*SQRTC  1 .-BE*  BE) 

WAA=  C SINC  A)*BB) 

WGOTO  1 1 
10WAA=W-RC 

1 1WBB=AA/SGRTC  C Rl-RC)  *C  Rl-RC)  -AA+AA) 

WBE=ATANC  BB) 

WDD=C  W-RC+SINC  BB)  -AA)  * 1 00000* 


34 


APPENDIX  C 


COMPUTER  PROGRAM  TO  DRAW  RIFLING  BROACH  COMPARATOR  CHARTS  (cont) 


\\CC=C  SQRTC  CR1-RC)*CR1-RC)-AA*AA)  + RC*CO SC  BE) ) * 1 0 OOOO * 
\ \ CALL  CONVERC DDj 8j JX) 

WCALL  CONVERC  CCj  8 j JY) 

W J=2 

WVRI  TEC  2j  3)  I Pj  JXj  JYj  J 

12WCC  = C CC/  1 00000- -RC* CO  SC BB) +RC*SINCA) ) * 1 00000* 

W DD=  C AA+RC*  CO  SC  A) - V) * 100000* 

WIFC  A*EG*0*  ) DD=0* 

WAA=C  RC  + SINC  BE) )*  100000* 

WEE=C  RC*COSC  EB) )* 100000* 

WCALL  CONVERC  DDj  8 j JX) 

WCALL  CONVERC  CCj8j  JY  ) 

WCALL  CONVERC  AAj  8 j KX) 

WCALL  CONVERC  EEj  8 j KY  ) 

WVRI  TEC  2j  A)  JJjMjJXj  JYjKXjKY 

WIFC  I * EG*  1 ) G0T020 

WI  FC  RC*  EC.RCM)  GO  TO  20 

WI  = I + 1 

WRF=hC 

WhC  = RCM 

W GO  TO  30 

20W AA=  1 * 57079632-A 

WEE=C  CC/  1 00  000*  ) + C SINC  AA)/C0SC  AA)  ) *DD/  100000* 

WAA=  SI  N CAA)/C0SCAA) 

WI  FC  I I * EG*  1 ) AA=-AA 
WCC=W 

WIFC  1 1 * EG*  1 ) CC=-V 

WCALL  CIRLINC  CCj  0 * j R2j  AAj  EBj  Xj  Yj  XXj  YY  ) 

WIFCYY*  GT*Y)X=XX 
WI  FC  YY*  GT*  Y)  Y = YY 
W J=  1 

WX=X*  100000* 

WY  = Y*  100000* 

WCALL  CONVERC  Xj  8 j JX) 

WCALL  CONVERC  Yj  8 j JY) 

WVRI  TEC  2j  3)Mj  JXj  JY  j J 
W AA=  C SORT CR2*R2”A**CC*CC) )* 100000* 

WBB=V*  1 00000  • 

WCALL  CONVERC  AAj8j  JY) 

WCALL  CONVEhC  BEj  8j  JX) 

WCC=ABSC  X)  +ABSC  V*  1 00000*  ) 

WCALL  CONVERC  CCjSjKX) 

WCALL  C0NVERCYj8jKY) 

WVRI  TEC  2 j A)  JJjMj  JXj  JYjKXjKY 

9 OWI  FC  I I * EQ*  1 ) GO  TO  AO 

WI  1 = 11  + 1 

\\AA=M 

W JJ=2 

WM=I  P 

WI  P=AA 
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COMPUTER  PROGRAM  TO  DRAW  RIFLING  BROACH  COMPARATOR  CHARTS  (cont) 


W I FC  I .EC. 1 ) RC=RP 
WIFCIII  -EQ.  1 ) RC=  0 • 

\\I  = 0 
W GO  TO  50 

40WIFC  I I I .EG.  1 ) G0T060 
\\  111  = 111+1 
\ \ A A= I P 
W JJ=3 
\\IP=M 
\\M=AA 
\\ GO TO  70 

8 0WCC= 1 . 5 70 79 6 32- A 

\ \ AA=C  BE/  1 00000.  -<  SINC  CO/COSC  CC) )*AA/  100000.) 
WAA=C  ( h2-  • 008  “AA)  / ( SINC  CO/COSC  CC)  ) )*  100000. 
WBE=CR2- * 008) * 100000. 

WCALL  CONVERC  AA>  JX) 

WCALL  C0NVERCEE>8> JY) 

WWRITEC  2>  3)M>  JX>  JY>  J 

\\ GO  109  0 

60\\I=0 

WAA=V  1*  1 00000. 

1 02\ \EB=  SC* 1 00000* + 1600. 

WI  = I + 1 
WJ=2 

WCALL  CONVERC AA> 8> JX) 

WCALL  CONVERC  EE>8.»  JY) 

WVRI  TEC  2>  3)  I Pj  JX>  JY>  J 
WBB=R2*  100000*-  1600* 

WCALL  CONVERC BB> 8> JY) 

W J=  1 

WVRI  TEC  2>  3)  I F>  JX>  JY,  J 
WAA=AA-V1*  100000. 

WIFC  I .NE.2)  GOTO  101 
WII  = IP 
W I P=M 
WM=  I I 

101WIFC I -NE.  3)  GOTO  102 
w si  op 

WEND 

WSO 

w 
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COMPUTER  PROGRAM  TO  DRAW  CUTTER  FORM  COMPARATOR  CHARTS 


C FhOGhAM  TO  E'hAU  CUT!  Eh  COMBAhATOh  CHAhT* 

C EhAUS  WITH  SF  10  10  1. 

C ANG*  AN GM- ANGLE  IN  E'EGhEESC  MAX.*  MI  N ) • 

C Rl^hlM-LArtGE  HAE'I  USC  MAX*  MIN)  • 

C h2U>  H2UM- SMALL  hAE'I  US”  UPP  EhC  MAX*  M I N ) 

C H2Lj  h2LM-  SMALL  hAE'I  US-LOUEhC  MAX>MIN  ) 

C AL 1 * AL IN- 1 Oh  hAEIUS  10  BOTTOMC MAX>MI N ) 

C AL » ALM -CENT Eh  TO  SHAnh  COhNEhC MAX* MI N ) 

C AL2*  AL2M-  SHAhh  COhNEh  TO  OUT  S I DEC MAX* MI l\  ) . 

C ITITLE-TITLE 

C INUM-DhAUING  NUMB  Eh. 

COMMON  IT ITLEC  15) * INUMC  1 5) * JXC  8 ) * JYC  8 ) * KXC  8 ) * KYC  8 ) 
hEALC  1*  1 ) h 1 * h2U* h2L* AL*  AL 1 * AL2* ANG 
hEAEC 1* 1 )hlM* h2UM* U2LM* ALM* AL 1M* AL2M* ANGM 
hEADC  D2)I  TITLE*  INUM 

1 FOhMATC 7F10.0) 

2 FOhMATC  30A2) 

1 = 0 

C EN  = 0 « 

Uhl  1 EC  2*  3) 

3 F 0 hM  A T C 2 5H  * % F SN  AX  3 5 Y 3 5 * S SM  5 0 1 6 • € * % * ) 

200  AA=C hlM-CEN) * 1 000000* 

CALL  CONV EhC AA*8* JY) 

Uhl  T EC  2*  A)  Jx 

A F OhM  AT  C6HG01XY~*8A1*8HE02*E01*) 

AN  G=  AN  G*  . 0 1 7 A 5329 
AA=  1 . 5 70  79 6 32- ANG 
S=- SINC  AA) /CO SC  A A) 

ALY  = SGhT C h 1 M * h 1 M - AL  * AL ) - C EN 
EB= ALY 

AL Y=h2UM* SINC ANG) +ALY 
ALX=  AL-K2UM+C0SC  ANG) 

B= - ALY- S+ALX 
AA=hlM+h2UM 

CALL  Cl hLINC  0*  * CEN*  AA*  S*  E*  X*  Y * XX>  YY) 

I FCX.LT . 0. )X=XX 
I F C Y .GT«0.)Y=Yx 
AA= ABSC C Y+CEN)/X) 

TH= AT  AN  C AA) 

AX=h2UM*C0SC  TH) 

A Y = h2UM*  SI N ( TH) 

AXX=(  X-A.a)  * 1000000. 

AY Y=C - Y-AY) * 1000000* 

AA=hlM* 1000000. 

CALL  CONV EhC  AXX>  8 * JX ) 

CALL  CONV EhC  AY  Y*  8*  JY) 

CALL  CONV EhC  A A*  8*  KY) 

Uhl  T EC  2*  5)  JX>  JY * KY 

5 FOhMATC  4HG03X*8A1*2HY-*8A1*2HI J*8A1*  1H*) 

AY Y= C -Y-h2UM)* 1000000. 
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COMPUTER  PROGRAM  TO  DRAW  CUTTER  FORM  COMPARATOR  CHARTS  (cont) 


AX=AX*  lOOOOOO. 

AY=AY* 1000000* 

AA=X* 1000000. 

CALL  COMVERC  AAj  &j  JX) 

CALL  COMVERC AY Y> 8* JY) 

CALL  COMVERC AX* 8*KX> 

CALL  COMVERC AY*8*KY> 

WRIT  EC  2>  6 ) JX>  Jt’i  KX>  KY 

6 FORMAT  ( 4HG02x>8A  \*  2HV-<8AL  1HI 1 8 A \>  1H  J>  8A1>  1H*) 
FX=CX+R2UM*C0SC AMC) ) * 1000000. 

FY  = C - Y-R2UM*SIMC  AMG) )* 1000000. 

AA=R2UM* 1000000. 

CALL  COMVERC  F'X#8j  JX) 

CALL  COMVERC FY* 8> JY) 

CALL  COMVERC AA> 8* KY> 

Vhl TEC  7) JXj  JYj  KY 

7 FORMAT C 4HG02X>8A1, 2HY-.» 8 A 1/  2HI 0* 8A1«  1H*) 

I F C R2L  • N E . 0 • ) GO  TO  1 0 

AA=C AL2/C  SIMC ANG)/ COSCAM G) )+EE)*  1000000* 

FX=C AL+AL2)* 1000000* 

CALL  COMVERC FXj8> JX) 

CALL  COMVErC AAj8j JY) 

WRITEC 2j8) JX> JY 

8 FORMAT C 4HG01X>8A1>2HY*>8A1# 1H*) 

GOTO  100 

10  IFC I .ME.O) GOTO  15 

A=-Y 
E2=R2UM 

15  AMY=C A-E2+AL 1M) 

AI Y=AMY-R2L 
FX=FX/ 1000000. 

AKY=AI Y+R2L+SINC  ANG) 

FY=FY/ 1000000. 

AKX=FX+C  AKY-FY)  *C  SIMC  AMO  / CO  SC  AMG)  ) 

AMX=  C AKX+R2L*C0SC  AMG)  ) * 1000000* 

AA= AKX* 1 000000. 

EB=AKY  * 1000000. 

CALL  COMVERC AA>8> JX) 

CALL  COMVERC EB>8> JY) 

UrITEC2j8) JX> JY 

AA=C R2L+C0SC AMG) )* 1000000. 

BE=C  R2L+SIMC  AMG) ) * 1000000* 

AMY “AMY* 1000000. 

CALL  COMVERC AMX> 8 > Jx) 

CALL  COMVERC AM i, 8,  JY ) 

CALL  COMVERC AA>8>  KX) 

CALL  COMVERC EEj8jKY> 

VHI TEC  2*  1 1 ) Jx>  JY  * KXj KY 

1 1 FORMAT  C 4HG03X-.  8 A 1 > 2HY~^8A1>  1HI>8A1>  1HJ^8A1>  1H*) 
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COMPUTER  PROGRAM  TO  DRAW  CUTTER  FORM  COMPARATOR  CHARTS  (cont) 


AA= ( AL+AL2 ) * lOOOOOO. 

CALL  CONVEhC  A A.*  8*  JX) 

UhlTEC  2*  12) JX 

12  FOhMATC  AHGO IX*  8 A 1 * 1H* ) 

100  CEN=hl-hlM 
ANJ  G=  AN  GM 
Is  lM=h  1 
h2UM=h2U 
H2L=  h2LM 
AL 1M  = AL 1 
AL= ALM 
AL2=  AL2M 
1 = 1+1 

IFC I . EQ. 1 ) GO 10 200 
AA= ( h IN- 1 • ) * 1 000000. 

CALL  CONVEHC AA»8» JY) 

Uhl  1 EC  2*  A)  JY 

AA=  C hlM+  *8) * 1 000000. 

CALL  CONVEhC AA* 8* JY) 

UlsI  1 EC  2*  20)  JT 

20  FOhKAl C 2HY - * 8 A 1 * 1H*) 

AA=  C h 1N+ • 1 ) * 1 000000. 

CALL  CONVEhC AA*8* JT) 

Uhl  1 EC  2*  A)  JT 

AA=C  AL  + AL2 ) * 1 000000* 

CALL  CONVEhC  AA*  8*  JX) 

Uhl  1 EC  2*  12) JX 
U hi  1 EC 2* 26) 

26  FOhMATC AHMOO*) 

AA= C hlM+ . 3) * 1 000000* 

CALL  CONVEhC AA* 8* JY) 

Uhl  1 EC  2*21) JT 

21  FOhMATC 15HG01X-00300C00Y-*8A1* AHD02*) 
UhlTEC  2*  22)  I TI  TLE 

22  FOhMATC 9HM50G56D 10* 15A2* 1H*) 

AA=  C h 1M+ . 33) * 1 000000. 

CALL  CONVEhC AA* 8* JT) 

Uhl  TEC  2*  2 1 ) JT 

Uhl  TEC  2*  22) INUM 

AA=  C hlM+ . 36 ) * 1000000. 

CALL  CONVEhC AA*8* JT) 

Uhl  1 EC  2*  2 1 ) JY 
Uhl  1 EC  2*  25) 

25  FOhMAT C 18HG56T 1CMAG- 10  TO  1*) 

STOP 

END 

JO 
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COMPUTER  PROGRAM  TO  DRAW  GEAR  TOOTH  PROFILES 


\\ COMMON JXC 8 ) * JYC8) 

WREADC  1*  5)  PD*  PA*  GAM*  BETA*  RS*  SF*XINC*RI*  SPR*  FR 
5WF0RMAT<  1 OF7  • 0) 

\\DEG= -01745329 
\ \PI  = 3 • 1 41 5927 
WPA=PA*DEG 
\\BETA=EETA*DEG 
\\R=PD*C0SCPA)/2. 

\ \ T 1 = 0 • 

\\  GD=  0 • 

\\K=0 

WWRI  TEC  2*  45) 

45WF0RMATC  1H*) 

\\N=360» / GAM 
200\\K=K+ 1 
\\I  = 0 

100\\D=DEG*T  1 
S\IFC  D.EQ.O. ) G0T08  0 
\\T=ATANC D) 

WG0T090 

CWRP-RPRIME 

80\\T=0» 

90WI  FC  T)  10*  20*  10 
20\\RP=R 
\\ GO  TO  30 
1 0WRP=R/C0SC  T) 

WIFCRP.GT.RS)  GOTO  70 
30\\PHI=T1*DEG-T 

CW90  DEG  = PI/2  - 1*5707963  RADIANS- 

\\TDUM=( PI+EETA)/2.-PHI- GD 
\\X=RP*C0S<  TDUM) 

\\Y=RP*SINC TDUM) 

\\X=X*  SF* 100000* 

\\Y=Y*SF* 100000- 
WCALL  C0NVERCX*8* JX) 

WCALL  CONVERC Y* 8* JY) 

\\IF( I* 1)40* 50*60 
40WWRI  TEC  2*  15) 

1 5WF0RNATC  4HD02* ) 

\\ GO  TO 60 
50WVRI TEC  2*  25) 

2 5WF0RMATC 4HD01*) 

60WVRI  TEC  2*35)  JX*  JY 

3 5WF0RMATC  4HG0  IX*  8A  1*  1HY*8A1*  1H*) 

\\I=I+ 1 

\\ T 1 = I 1+XINC 
WGOTO  100 
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COMPUTER  PROGRAM  TO  DRAW  GEAR  TOOTH  PROFILES  (cont) 


70\\GD=GD+ GAM*  DEG 
\ \ T 1 = 0 • 

\\I F(K.LT.N) G0T0200 
WWRI  TE(  2*  55) 
55WF0RMAK  4HM00*  ) 
WPD=PD/2. 

WCALL  CIhABS<R>SF) 

WCALL  Cl  RABSC  RI  • SF) 

WCALL  Cl  HABS(  RS*  SF) 

WCALL  Cl  RAESC  PD*  SF) 

WCALL  CIRABSC  SPR>  SF) 

WCALL  Cl  RABS(  FR*  SF) 

WSTOP 

WEND 

W$0 

W 
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COMPUTER  PROGRAM  TO  DRAW  GEAR  TOOTH  PROFILES  (cont) 


CWTHIS  SUBROUTINE  WILL  DRAW  A COMPLETE  Cl  RCLEt  CLOCKWI  SE> 
CWIN  FSNAX25Y25  FORMAT  STARTING  ON  THE  POSITIVE  Y-AXIS* 
CWUSES  SUBROUTINE  CONVEH  WITH  SIGN. 

\\ SUBROUTINE  CIRABSCR^SF) 

WDIMENSI  ON  I R(  8 ) 

WDATA  M/ 1H-/#  IP/ 1H+/ 

WR=R* 100000. *SF 
WCALL  CONVERC  R.»  8*  I R) 

WWRITEC  2#  DIR 

1 WFORMAK  5HG0  IXYj  SAD  4HD02* ) 

WDO  1 00K=  DA 

\\IF(K.EQ.2.0R.K.EQ.3)IR< 1)=M 
\\IF(K. GT. 3) IRC 1)=IP 
WIFCK.EQ.  1 .0R.K.EQ.3)  GO  TO  30 
WWRI  TEC  2*  20)  IRj  I ( IRC  I > * 1 = 2*8) 

2 0\ \ FORMAT ( 2HXY..8AD  1HD8AD  1H*> 

WG0T0100 

30\\WRITE(  2»  10)  IRj  IPj  ( IRC  I D I = 2j  8 ) 

10WF0RMATC  4HG02X*  SAD  2HYJj8AD  4HD0 1* ) 

100WC0NTINUE 

WRETURN 

WEND 

WSO 

\\ 
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COMPUTER  PROGRAM  TO  DRAW  VU-GRAPH  TITLES  OR  HEADINGS 


C TITLE- THIS  PRO  GRAM  V.ILL  CENTER  VU-  GRAPH  TITLES  OR  HEADINGS 
C FOR  UP  TO  AO  CHARACTERS  AND  UP  TO  10  LINES • 

C DRAUNG  CONCLUDES  VI  TH  AN  8*5X11  IN*  BORDER. 

C SAMPLE  INPUT: 

C • 375HANDB00K  OF<(CR> 

C 1 * 

C * 500MATHEMATI CAL<( CR) 

C 1 * 

C * 375FUNCTIONS<< CR) 

C FIRST  FOUR  SPACES-LETTER  SIZE  FOLLOVED  EY  NARRATIVES  END 
C OF  LINE  INDICATOR).  NEXT  LINE  IS  SPACING  BETVEEN  LINES* 

C DRAFTING  PARAMETERS! 

C FSNAX23Y23*0nI GIN  IS  UPPER  LEFT  CORNER  OF  BORDER. SFA 1 B 1 *> 
COMMON  MS<  10),SS<  10),LTR<  1 0,  AO)  , SPACE<  1 0)  > JX<  5)  > JY<  5) 
COMMON  IMS( 5) , XSSC 5) 

DATA  I ARO/ 1H</, I CA/ 1H> / , I ONE/ 1 H 1 / > I EYE/ 1HI / , I PER/ 1H./ 
DATA  I PL/  1H+/,MIN/ 1H-/, I AST/ 1H*/ 

K=  0 

200  K=K+ 1 

READ(  1, 1 ) SS<K),(LTR(K, I ), la i, AO) 

VRI T E(  L 35) 

35  FORMAT < 1H  ) 

READY  1,1)  SPACE(K) 

VRITEC  1,  35) 

1 FORMAT(FA.O> A0A1) 

I F ( SPACE(K) . GT* 0. ) GO  TO 200 
SUM=  0 • 

MS ( 1 ) = 0 
I C=0 
M=  1 

DO  101  = 1,K 

SUM=SUM+SS( I ) +SPACEC  I ) 

SS(I )=SS(I ) / • 0 1 5 
IF( I .GT* 1 ) GOTO  15 
A5  IKS<M)=MS(I) 

XSS(M)=SS( I) 

M=M+  1 
GO  TO  1 0 

I 5 I DUM= I - 1 

12  I F ( SS( I ) • EG* SS( I DUM) ) G0T09 
I DUM=I DUM-  1 
IF<  I DUM)  11,11,12 

II  MS(I)=IC+1 
I C= I C+  1 
G0T0A5 

9 MS( I )=MS( I DUM) 

10  CONTINUE 

53  I F(M- 5) 51, 5 1, 52 
51  IMS<M)=IC+1 

I C= I C+  1 
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APPENDIX  F 


COMPUTER  PROGRAM  TO  DRAW  VU-GRAPH  TITLES  OR  HEADINGS  (cont) 

XSSCM) =0. 

M=M+  1 
GO 10 53 

52  WRI TEC  A) C IMSCM) j XSSCM) ,M* 5) 

A FOhMATC  6H*%SSM5.»  11«  F5*  1j  AC  2HM5j  I 1*  F5*  1 ) > 3H*%*) 

IFC  SUM. GT. 6. 75) GOTO  14 
SUM=  C 8 • 5“ SUM )/2«+SSC  1)*.015 
SUM=  SUM* 1000. 

CALL  COMVEHC SUM,  5* JY) 

D020I=1>K 
SUMX=  0 • 

M=  0 

6 0 M=M+ 1 

IFCLTHC  MM)  • EQ  • I CA)  GO  TO  30 
IFCLThC  I jM)  * EQ.IONE)  GO  1030 
IFCLTHC I iM) . EG. I EYE) GO TO AO 
IFCLTHCIjM)  -EQ.  I PER)  GO  TO  3 0 
IFCLTHC I ,M) . EQ. I PL) GO  TO  50 
I FC  LTRC I ,M) . EQ.MIN) GO  TO 50 
I FCLTHC I »M)  .EQ.  I AHO) GOTO  70 
SUMX=  SUMX*  * 015 
GO  TO  6 0 

30  SUMX®  SUMX+ • 007 

GO  TO  6 0 

AO  SUMX=SUMX+ *005 

GO  10 60 

50  SUMX=SUMX+.01 1 

GO TO 60 

70  LTHC I ,M)  = I AST 

SUMX=C  SUMX- • 005) *SSC I ) 

IFC  SUMX. GT. 8. 5) GOTO  16 
SUMX=C  1 1 .-SUMX) *500. 

I  FC  I . EQ.  1 ) GO  TO  8 0 

SUM=SUM+C  SPACEC I- 1)+SSC I ) * . 0 1 5 ) * 1 000 • 

CALL  CONVERC SUM,  5* JY> 

80  CALL  CONVERC SUMX, 5,  JX) 

WRI TEC 2,  2) I PL, JX,MIN,  JY 

2 FOHMATC  5H*G01X,  6A1,  1HY, 6A 1 , AHD02* ) 

V.HI  TEC  2,  3)MSC  I ) , CLTRC  I,  1 1 ) , 11=  l,M> 

3 FORMAT C 2HM5,  I 1,6HG56D10,  A0A1) 

20  CONTINUE 

WRI TEC  2,  5) 

5 FOHMATC  3 1HG0 1XY- 08 500D02+X 1 1 OOODO 1 *Y00000) 

VRI TEC  2,6) 

6 FOHMATC  30H+X00000+Y- 08 500*X 1 5000D02+M 30* ) 

GO  TO 2 5 

1 A WRI TEC  1,7) 

7 FOHMATC 8HVERT  ERR) 

GO  TO  25 

16  WRI TEC  1*8) 

FORMAT C 8HH0RX  ERR) 

5 STOP 

EMD 
SO 
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COMPUTER  PROGRAM  TO  DRAW  VU-GRAPH  TITLES  OR  HEADINGS  (cont) 


. 3 

EF FECI 

OF  CH  EMI CAL< 

1 • 

• 3 

COMPOSITION  ON  EhOSION< 

1 • 5 

• 3 

DR  • R • 

I MAM< 

ST 

*%SSM50  20 • OM 5 1 0.0M52  0.0M53  0»0M54  0*0*%* 

♦GG1X+02950Y-028  50D02* 

M50G56D10EFFECT  OF  CHEMICAL* 

* GO 1X+C2550Y-041 50E02* 

M50G56D10C0MP0SUI0N  OM  EhOSION* 

* GO 1X+  04 16CY-059  50 DO 2* 

M50G56D1 ODh«  H*  IMAM* 

G01XY-08  500D02*X 1 1 000 DO  1 * YOOOO 0 
*X00000*Y-08500*X15C00D02*M30* 
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COMPUTER  PROGRAM  TO  DRAW  VU-GRAPH  TITLES  OR  HEADINGS  (cont) 

C THIS  PROGRAM  OUTFUTS  STATUS  OF  FUNDING  VU- GRAPH. 

C UPPER  LEFT  CORNER  OF  BORDERC . 25* . 25) 

C TAFE  IS  SELF-SUFF.  FOR  DRAFTING  PARAMETERS* 

C VALUES  FOR  AUTHORIZED*  EXPENDED*  COMMITTED*  REMAINING 
C READC  FROM  ASR)  IN  13A1* DECIMAL  OPTI ONAL* COMMAS  ARE  USED* S NOT  USED* 
\\ COMMON  IXC  13)  * JXC  5)*  JYC  5) 

WDATA  ID*IE/1H1*  1H  / 

100WWRITEC  2*  1) 

1WFORMATC  28H* %FSTAX23Y2  3*  SSM  5020M 5122*%*) 

WWRI  TEC  2*2) 

2 WFORMATC  9HG0 1XYD02* ) 

WWRI  TEC  2*  3) 

3 W FORMAT ( 3 7HX026Y- 02 A*M 5 1 G 56 D 1 OS TAT  US  OF  FUNDING*) 

WWRI  TEC  2*  A) 

A WFORMATC  3 5HG0  1 X02Y-  03  7D02*M50G56D  1 OAUTHORI  ZED*  ) 

WWRI  TEC  2*  5) 

5WF0RMATC  28H GO  1 Y- 0AA5D02*  G56 D 1 OEXPENDED*  ) 

WWRI  TEC  2*6) 

6WF0RMATC  28HG0  1 Y- 052D02*  G56D1  OCOMMI  TIED*) 

WWRI  TEC  2*  7) 

7 WFORMATC  29H  GO  1 Y- 059  5D02*  G56D 1 OREMAI N I N G* ) 

WYY  = 2950* 

WDO  101=  1*  A 
WAJ=  13* 

WYY  = YY+  750  • 

WDUM=  A700* 

WWRI  TEC  1*51) 

5 1 WFORMATC  1H  ) 

WREADC  1*  1 1)  IX 
WDO  30  J=  1*13 
1 1 WFORMATC  1 3A 1 ) 

WIFCIXC  J)  • EQ*  I D)  DUM=DUM+  160* 

WI  F'C  IXC  J)  . EQ.  IB)  GOTO 32 
W GO  TO  30 
32WAJ=  J-  1 
W J=  1 3 

30WC0NTINUE 
W DUM=  DUM+  C 1 3 * - AJ) *300* 

WIFC  AJ*  GT*  A* ) DUM=DUM+  160* 

WI  FC  AJ*  GT  • 8 • ) DUM=  DUM+  160* 

WIFC  AJ*  GT*  12.  ) DUM=DUM+  160. 

WCALL  CONVERC  DUM*  5*  JX) 

WCALL  CONVERC  YY*  5*  JY) 

WWRI  TEC  2*  AO)  JX*  JY*  IX 

AO  WFORMATC  AH  GO  IX*  5A 1 * 2HY- * 5A 1 * 1 0HD02*  G56D  1 0*  13A1*  1H*) 

1 OWCONTINUE 
WWRI  TEC  2*  Al) 

A1  WFORMATC  A 7H GO  IX- 002 5Y0025D02*X 1 075D0 1 * Y- 08 2 5*X- 0025* Y002 5* ) 

WWRI  TEC  2*  A2) 

A2WF0RMATC  1 1HX  1 5D02*M30*  ) 

WWRI  TEC  1*  50) 

50WF0RMATC  A9HAN0THER  VU-GRAPH?  PRESS  FOR  LEADER  THEN  HIT  START) 
WPAUSE 
WGOTO  100 
WEND 
W$0 

w 
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COMPUTER  PROGRAM  TO  DRAW  VU-GRAPH  TITLES  OR  HEADINGS  (cont) 


255* OOO 
56*8  57 
1 1*  047 
187.*  096 
ANOTHER 
PA 


VU-GhAPH?  PRESS  FOR  LEADER 


THEN  HIT  START 


*%FSTAX23Y23*SSM5020K5122*%* 

GO 1XY  D02* 

X026Y-C24*M5 1 G56D 1 OSTATUS  OF  FUNDING* 

G01X02Y- C37D02+M50G56D10AU1H0RI XED* 
G01Y-0445D02+G56D10 EXPENDED* 

GO  1 Y- 052D02*  G56D10C0MMI TTED* 

GC1Y-0595D02*G56D1 OREM AIN I N G* 

GC1X0666CY-C37 OCE'02* G56D10255*  COO  * 

G01X06960Y-Q4450D02*G56D1056*857  * 

G01X07280Y- C5200D02* G56D 101 1*  04  7 * 

G01X06820Y-05950D02+G56D10187*  09  6 * 

G01X-0025Y0025D02*X1075DC1*Y-0825*X-C025*Y0025* 

X15D02*K30* 
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